home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / M0.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  34 lines
  1. 100  HOME : TEXT 
  2. 2000  REM      1st screen
  3. 2002  PRINT 
  4. 2004  PRINT "  Why are images projected from a spoon     upside down?"
  5. 2006  PRINT 
  6. 2008  REM      pause
  7. 2010  GOSUB 10000
  8. 2012  PRINT "       Why are images projected from             bathroom mirrors rightside up?"
  9. 2014  PRINT 
  10. 2016  REM      pause
  11. 2018  GOSUB 10000
  12. 2020  PRINT "          Why are images from amusement             park mirrors distorted?"
  13. 2022  PRINT 
  14. 2024  REM      pause 
  15. 2026  GOSUB 10000
  16. 2028  PRINT : PRINT 
  17. 2030  PRINT "  All these questions can be answered   by the law of reflection, which states:"
  18. 2032  REM       pause
  19. 2034  GOSUB 10000
  20. 2036  PRINT 
  21. 2037  PRINT "     THE ANGLE OF INCIDENCE IS EQUAL         TO THE ANGLE OF REFLECTION."
  22. 2038  REM       pause
  23. 2040  GOSUB 10000
  24. 2041  PRINT : PRINT 
  25. 2042  PRINT "Press any key to see an example."
  26. 2044  GET KY$
  27. 2046  REM       draw flat mir & perp
  28. 2050  PRINT  CHR$(4)"run m1"
  29. 5000  END 
  30. 10000  REM      pause loop
  31. 10002  FOR I = 0 TO 1500
  32. 10004 J = 1
  33. 10006  NEXT I
  34. 10008  RETURN